home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / cross / sasmv14.dms / sasmv14.adf / examples / hdma.s < prev    next >
Text File  |  1993-05-22  |  680b  |  41 lines
  1.  
  2.     heap    O=32k
  3.  
  4. ;---
  5. ;HDMA ANIMATION DATA © 1993 by FWS
  6. ;---
  7. ONELIST    MACRO                ;creates one hdma frame for windows 3.1 haha
  8. xpos    set    1
  9.     dc.b    128+\1
  10.     .repeat    \1 {
  11.         dc.b    2,1
  12.     }    
  13.     dc.b    128+114-\1
  14.     .repeat    114-\1 {
  15.         dc.b 128-xpos+\1,128+xpos-\1
  16. xpos        set    xpos+1
  17.     }
  18.     dc.b    128+114-\1
  19.     .repeat    114-\1 {
  20.         dc.b 128-xpos+\1,128+xpos-\1
  21. xpos        set    xpos-1
  22.     }
  23.     dc.b    128+\1
  24.     .repeat    \1 {
  25.         dc.b    2,1
  26.     }    
  27.     dc.b    0
  28.     ds.b    51,0        ;fill 2 page block
  29.     ENDM
  30.  
  31. ; now create 52 images of hdma settings !! (cool!)
  32. ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  33. hdmadata_win:
  34.     .ask
  35. size    set    1            ;setup initial size
  36.     .repeat    52 {
  37.         ONELIST    (size)        ;create 512 bytes with hdma list
  38. size        set    size+1
  39.     }
  40.     .ask
  41.